Sub 첫번째매크로()

    Range("B6:B9").Copy
    Range("D6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    Range("D6:D9").TextToColumns FieldInfo:=Array(1, 3)
    
    Range("F6").Value = "최준선"
    
End Sub
